home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib09.dsk / SR125-$ FORMAT.txt < prev    next >
Text File  |  2023-02-26  |  562b  |  8 lines
  1.  
  2.  125 N = N + 2 * (N = 0):W = W + 10 * (W = 0)
  3.  126  IF  NOT W THEN W = 10
  4.  127 VV$ = " " +  STR$ ( INT (V * 10 ^ N + .5)):Q =  LEN (VV$) - ( VAL (VV$) < 0):V$ = "": FOR X = 1 TO W - 3:V$ = V$ + " ": NEXT 
  5.  128 V$ = V$ +  MID$ (VV$,1 + ( VAL (VV$) < 0),(Q <  = N) + (Q - N) * (Q > N) - 3 * (V >  = 1000)): IF V >  = 1000 THEN V$ = V$ + "," +  RIGHT$ ( STR$ ( INT (V - 1000 *  INT (V / 1000)) + 1000),3)
  6.  129 V$ = V$ +  MID$ ("0.00",1 + ((N + 1) < Q),1 + (N - Q + 2) * (Q < N + 2)) +  RIGHT$ (VV$,N * (Q > N) + (Q - 1) * (Q <  = N)):V$ =  RIGHT$ (V$,W): RETURN 
  7.  
  8.